home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / comm1 / chkdrpv2.lha / logoff / NewCheckdrop2 < prev    next >
Text File  |  1996-03-25  |  17KB  |  2 lines
  1. /* Optimized with RexxOpt 1.7 */
  2. Options Results;Getuser 40;Account=Result;Getuser 15;Access=result;Getuser 1;Handle=Result;getuser 12;date=result;logfile='pfiles:logoff/Log';AccessCfg='pfiles:logoff/Access';Workdir='pfiles:logoff';Configfile='Pfiles:logoff/ConfigData';limit=3;exempt=0;qry=''workdir'/users/'handle'';dstat='Off';bstat='No';if exists('pfiles:logoff/Disabled') then dstat='On';if exists('pfiles:logoff/baudDisable') then bstat='Yes';address command 'delete "'qry'"';SYSOP:;sendstring 'c6n2CheckDrop Optionsc7: c6Cc4onfig, c6Uc4sers, c6Sc4tatus log (c6Enter=Quitc4)? ';GetChar;menu=result;if menu='C' then;do;sendstring'c6Config';call configmenu;end;if menu='U' then call userstat;if menu='S' then call status;sendstring'c6Exit';call quiter;end;Config:;transmit' c4f1Exempt User Accountsc7:n1';if exists(ConfigFile) then;do;vv=0;sendstring'f0n3';p=1;Call Open(f2,ConfigFile,r);lister:;t=Readln(f2);if t='' then;do;close(f2);transmit'f0n20}c4Press any Keyc6...g1';call configmenu;end;sendstring'>'p'}c4Account#:c6 't'n1';vv=vv+1;if vv>15 then;do;sendstring'f0n3';p=p+15;vv=0;end;call lister;end;Transmit 'c4(c6No Exempt User Filec4)f0n20}c4Press any Keyc6...g1';call configmenu;ConfigMenu:;sendstring'f1c6Configuration Menuc7:n2';sendstring'     c61c4 List exempt usersn1';sendstring'     c62c4 Add user to exempt listn1';sendstring'     c63c4 Remove user from exempt listn1';sendstring'     c64c4 Reset the exempt user listn2';sendstring'     c65c4 Read access settingsn1';sendstring'     c66c4 Edit access groupn1';sendstring'     c67c4 Set maintenance access leveln1';sendstring'     c68c4 Reset the access group confign2';sendstring'     c69c4 Disable Checkdrop    c6('dstat')n1';sendstring'     c60c4 Disabled above a 14.4K carrier c6('Bstat')n2';sendstring'c4(c6Enter=Main Menuc4) c7Command: c6';getchar;CF=result;if CF='1' then;do;transmit'f1';call Config;end;if CF='2' then;do;sendstring'Add Usern2';call ADDER;end;If CF='3' then;do;Sendstring'Remove Usern2';call REMOVE;end;If CF='4' then;do;sendstring'c6Reset!n1';call reset;end;IF CF='6' then;do;sendstring'Group edit...n2';call access;end;If CF='5' then call accessread;If CF='8' then call KillAccess;IF CF='7' then call MaintAccess;if CF='9' then call Disable;if CF='0' then call BaudDisable;sendstring'c6Main';call sysop;exit;DISABLE:;if dstat='On' then;do;transmit'$ delete pfiles:logoff/disabled}';dstat='Off';call configmenu;end;open(8,'pfiles:logoff/Disabled',w);writeln(8,tim', 'handle);close(8);dstat='On';call configmenu;BaudDisable:;if bstat='Yes' then;do;transmit'$ delete Pfiles:logoff/BaudDisable}';bstat='No';call configmenu;end;open(7,'pfiles:logoff/BaudDisable',w);writeln(7,tim', 'Handle);close(7);bstat='Yes';call configmenu;RESET:;if exists(configfile) then;do;call reset1;end;Transmit'n2 File Has not been createdn2 c4Press any Keyc6...';getchar;call ConfigMenu;exit;reset1:;sendstring'n2c6Reset EXEMPT List: c4Are You Sure c6(c7yes/NOc6)c4?c7 ';getchar;re=result;if re='Y' then;do;address command 'delete "'configfile'"';transmit'Exempt List RESET.w2';call ConfigMenu;end;call configmenu;end;ResetUser:;sendstring'c4sf0!20}Do you wish to Forgive all whome have dared to drop carrier on thy Empire? c6(c7y/Nc6)c7 ';getchar;vv=result;if vv='Y' then;do;transmit'c6 ... c4';address command 'delete "'workdir'/users/#?"';transmit'$ delete ram:t/tempfil}';Transmit 'Logs Resetn2';call sysop;end;sendstring'u';call stat3.1;ADDER:;addto='';query'n2c4Account c6#c4 To addc7: c6';addto=result;if addto='' then;do;sendstring 'c4(c6Abortedc4)w1n1';call ConfigMenu;end;if addto='###PANIC' then call quiter;transmit 'c4Adding 'addto' to Exemptlistc6s1...w1q1';If exists(ConfigFile) then;do;call adder1;end;open(1,ConfigFile,w);close(1);call adder1;end;adder1:;st=open(1,ConfigFile,a);st=writeln(1,addto);st=call close(1);call configmenu;end;Remove:;Remove='';if exists(configfile) then;do;Query 'n1c4Account # to removec7:c6 ';remove=result;If remove='' then;do;sendstring 'c4(c6Abortc4)n1';call configmenu;end;if remove='###PANIC' then call quiter;if exists(ConfigFile) then;do;Open(f1,ConfigFile,r);Open(f2,'ram:loginTemp',w);call read2;read2:;x=readln(f1);if x=remove then;do;sendstring': Removed';call read2;end;if x='' then;do;close(f1);close(f2);call Remove2;end;writeln(f2,x);call read2;end;end;transmit 'You have not created an exempt user list!n2c4 Press any Keyc7...';getchar;call configmenu;end;remove2:;address command 'copy "ram:LoginTemp" "'configfile'"';address command 'delete "Ram:logintemp"';call configmenu;end;Access:;didit=0;if exists(AccessCfg) then;do;query'c4n2Access group to changec7:c6 ';change=result;If change='' then;do;sendstring'    c4(c6Abortc4)';call configmenu;end;if change='###PANIC' then call quiter;query'c4Allow ?? times c6(c7x=Exempt,r=Removec6)c7:c6 ';ti=result;If ti='R' then;do;call accxxx;end;If ti='r' then;do;call accxxx;end;If ti='' then;do;transmit'c4(c6Abortc4)w1';call configmenu;end;open(9,AccessCFG,r);open(0,'ram:accessTmp',w);x=Readln(9);writeln(0,x);xxxxx:;aa=readln(9);if aa=''then call xx;bb=Readln(9);if aa=change then;do;bb=ti;didit=1;end;writeln(0,aa);writeln(0,bb);call xxxxx;end;transmit'n2You Must set your Maintenance access group first.w3';call configmenu;exit;accxxx:;open(9,AccessCFG,r);open(0,'ram:accessTmp',w);x=Readln(9);writeln(0,x);PPP:;aa=readln(9);if aa='' then;do;didit=1;call xx;end;bb=Readln(9);if aa=change then call PPP;writeln(0,aa);writeln(0,bb);call ppp;MaintAccess:;sendstring'c6 Set maint...n1';Query'n2What is your Maintenance access group#? ';ss=result;if ss='###PANIC' then call quiter;if ss='' then;do;sendstring' c4n2  (c6Abortc4)w1';call configmenu;end;if exists(accesscfg) then;do;open(0,'ram:tempfile',w);open(9,accesscfg,r);writeln(0,ss);tt=Readln(9);YYY:;tt=readln(9);if tt='' then;do;close(0);close(9);address command 'copy "ram:tempfile" "'AccessCFG'"';address command 'delete "Ram:tempfile"';call configmenu;End;writeln(0,tt);call YYY;open(9,AccessCFG,w);Writeln(9,ss);close(9);call ConfigMenu;end;open(9,accesscfg,w);Writeln(9,ss);close(9);call configmenu;end;XX:;if didit=1 then;do;Close(9);Close(0);address command 'copy "ram:AccessTmp" "'AccessCFG'"';address command 'delete "Ram:Accesstmp"';call ConfigMenu;end;writeln(0,change);writeln(0,ti);writeln(0,'');didit=1;call xx;end;KillAccess:;sendString'c6Kill access Groups';bufferflush;sendstring'n2c4Are you sure you want to do this c6(c7yes/NOc6)c4? c6';Getchar;aa=result;If aa='Y' then;do;address command 'delete "'AccessCFG'"';transmit 'File Deleted';transmit 'n1c7Set the Maintenance access group, Otherwise All access groups will have access to the editor.n2c4Press any Keyc6...g1';end;Call configmenu;AccessRead:;if Exists(accesscfg) then;do;open(9,AccessCFG,r);a=Readln(9);transmit 'f1c4Access Group Listingc7:c6    c4Sysop accessc7:c6 'a' c4 (c6Default Limit is 10c4)n2';vv=0;p=1;cvxx1:;ac=readln(9);if ac=''then call clsr;bc=readln(9);sendstring '>'p'}c7|c4Groupc6: 'ac' c4Limitc6: 'bc'n1';vv=vv+1;if vv>11 then;do;sendstring'f0n3';p=p+22;vv=0;call cvxx1;end;call cvxx1;clsr:;close(9);transmit'f0n20}c4Press any Keyc6...g1';call configmenu;end;Transmit 'List Not Created.w2';call configmenu;STATUS:;sendstring'c6 Status..n2';if exists(logfile) then;do;open(1,logfile,r);stts:;stat=readln(1);if stat='' then;do;close(1);sendstring'n2c4Reset Log c6(c7yes/NOc6)c4?c7 ';getchar;yesno=result;if yesno='Y' then;do;sendstring ' c7Yesn2c4Resettingc6...';address command 'delete "'LogFile'"';sendstring'h7}..n2';end;call sysop;end;sendstring stat'n1';call stts;end;else;do;transmit'n1c4(c6Log is emptyc4)';call sysop;end;quiter:;TRANSMIT 'n1c4Ver.2a c7|c4Written Byc6: c7GOD c5Jc2Oc1Kc4Ec3Rc6   c6@ c4MidNight BBS c6... c7216c6-c7954c6-c79235';quit;end;userstat:;need=1;countt=1;sendstring 'c7Usersn2';transmit '$0 list pfiles:logoff/users/#? lformat="%s" >ram:t/tempfil}';stat1.5:;close(11);STAT1.7:;open(12,'ram:t/tempfil',r);count=0;stat1.8:;eof=0;line2='';line3='';line4='';line5='';line6='';line7='';line8='';line9='';line10='';line11='';line12='';count=count+1;line1=readln(12);if line1='' then;do;eof=1;call stat3;end;if line1=': object not found' then;do;sendstring'c4(c6An Error has occured.. No Pfiles:logoff/users directory?c4)n1';call sysop;end;line2=readln(12);if line2='' then;do;eof=1;call stat3;end;line3=readln(12);if line3='' then;do;eof=1;call stat3;end;line4=readln(12);if line4='' then;do;eof=1;call stat3;end;line5=readln(12);if line5='' then;do;eof=1;call stat3;end;line6=readln(12);if line6='' then;do;eof=1;call stat3;end;line7=readln(12);if line7='' then;do;eof=1;call stat3;end;line8=readln(12);if line8='' then;do;eof=1;call stat3;end;line9=readln(12);if line9='' then;do;eof=1;call stat3;end;line10=readln(12);if line10='' then;do;eof=1;call stat3;end;line11=readln(12);if line11='' then;do;eof=1;call stat3;end;line12=readln(12);if line12='' then;do;eof=1;call stat3;end;if need>count then call stat1.8;stat3:;sendstring 'f1n2 c4 Current users on my listcf:c6n2';if eof=0 then;do;sendstring '^2>29}c4(c6Morec4)c6n2';end;sendstring 'f0n5>27}c7Curser Keys c6=c4 Movement (up/down) n2>27}c7Left Curser c6=c4 Previous Listn2>27}c7Right curser c6=c4 Next Listn2>27}c7SPACE c6=c4 View Infon2>27}c7Kc6 =c4 Forgive A user of his sin.n2>27}c7*c6 = c4 Forgive Everybodyn2>27}c4(c6Enterc4) c6=c4 Exitc6';sendstring 'f0n5';tr=transmit;tr line1;tr line2;tr line3;tr line4;tr line5;tr line6;tr line7;tr line8;tr line9;tr line10;tr line11;tr line12;countt=1;sendstring'f0n5c7'line1;stat3.1:;getchar;mov=result;if mov=' ' then call View;if mov='K' then call forgive;if mov='#' then call quiter;if mov='*' then call resetuser;if mov='' then call stat3.1;if mov='[' then call stat3.2;sendstring'f0!21}';bufferflush;close(12);call sysop;exit;STAT3.2:;getchar;mov=result;if mov='D' then call left;if mov='C' then call right;if mov='A' then call up;if mov='B' then call dwn;if mov='#' then call quiter;bufferflush;call stat3.1;UP:;if countt=2 then;do;sendstring'c6n1^1'line2'^2n1c7'line1;countt=countt-1;call stat3.1;end;if countt=3 then;do;sendstring'c6n1^1'line3'^2n1c7'line2;countt=countt-1;call stat3.1;end;if countt=4 then;do;sendstring'c6n1^1'line4'^2n1c7'line3;countt=countt-1;call stat3.1;end;if countt=5 then;do;sendstring'c6n1^1'line5'^2n1c7'line4;countt=countt-1;call stat3.1;end;if countt=6 then;do;sendstring'c6n1^1'line6'^2n1c7'line5;countt=countt-1;call stat3.1;end;if countt=7 then;do;sendstring'c6n1^1'line7'^2n1c7'line6;countt=countt-1;call stat3.1;end;if countt=8 then;do;sendstring'c6n1^1'line8'^2n1c7'line7;countt=countt-1;call stat3.1;end;if countt=9 then;do;sendstring'c6n1^1'line9'^2n1c7'line8;countt=countt-1;call stat3.1;end;if countt=10 then;do;sendstring'c6n1^1'line10'^2n1c7'line9;countt=countt-1;call stat3.1;end;if countt=11 then;do;sendstring'c6n1^1'line11'^2n1c7'line10;countt=countt-1;call stat3.1;end;if countt=12 then;do;sendstring'c6n1^1'line12'^2n1c7'line11;countt=countt-1;call stat3.1;end;call stat3.1;DWN:;if countt=1 then;do;sendstring'c6n1^1'line1'n1c7'line2;countt=countt+1;call stat3.1;end;if countt=2 then;do;sendstring'c6n1^1'line2'n1c7'line3;countt=countt+1;call stat3.1;end;if countt=3 then;do;sendstring'c6n1^1'line3'n1c7'line4;countt=countt+1;call stat3.1;end;if countt=4 then;do;sendstring'c6n1^1'line4'n1c7'line5;countt=countt+1;call stat3.1;end;if countt=5 then;do;sendstring'c6n1^1'line5'n1c7'line6;countt=countt+1;call stat3.1;end;if countt=6 then;do;sendstring'c6n1^1'line6'n1c7'line7;countt=countt+1;call stat3.1;end;if countt=7 then;do;sendstring'c6n1^1'line7'n1c7'line8;countt=countt+1;call stat3.1;end;if countt=8 then;do;sendstring'c6n1^1'line8'n1c7'line9;countt=countt+1;call stat3.1;end;if countt=9 then;do;sendstring'c6n1^1'line9'n1c7'line10;countt=countt+1;call stat3.1;end;if countt=10 then;do;sendstring'c6n1^1'line10'n1c7'line11;countt=countt+1;call stat3.1;end;if countt=11 then;do;sendstring'c6n1^1'line11'n1c7'line12;countt=countt+1;call stat3.1;end;if countt=12 then;do;call stat3.1;end;call stat3.1;LEFT:;close(12);need=need-1;if need<1 then need=1;call stat1.7;RIGHT:;if eof=1 then call stat3.1;need=need+1;call stat1.8;VIEW:;if countt=1 then;do;if line1=''then call stat3.1;open(13,'pfiles:logoff/users/'line1,r);status=readln(13);close(13);sendstring'f0n19}'line1' Has Dropped carrier 'status' time(s) now.            f0n5';call stat3.1;end;if countt=2 then;do;if line2=''then call stat3.1;open(13,'pfiles:logoff/users/'line2,r);status=readln(13);close(13);sendstring'f0n19}'line2' Has Dropped carrier 'status' time(s) now.            f0n6';call stat3.1;end;if countt=3 then;do;if line3=''then call stat3.1;open(13,'pfiles:logoff/users/'line3,r);status=readln(13);close(13);sendstring'f0n19}'line3' Has Dropped carrier 'status' time(s) now.            f0n7';call stat3.1;end;if countt=4 then;do;if line4=''then call stat3.1;open(13,'pfiles:logoff/users/'line4,r);status=readln(13);close(13);sendstring'f0n19}'line4' Has Dropped carrier 'status' time(s) now.            f0n8';call stat3.1;end;if countt=5 then;do;if line5=''then call stat3.1;open(13,'pfiles:logoff/users/'line5,r);status=readln(13);close(13);sendstring'f0n19}'line5' Has Dropped carrier 'status' time(s) now.            f0n9';call stat3.1;end;if countt=6 then;do;if line6=''then call stat3.1;open(13,'pfiles:logoff/users/'line6,r);status=readln(13);close(13);sendstring'f0n19}'line6' Has Dropped carrier 'status' time(s) now.            f0n10}';call stat3.1;end;if countt=7 then;do;if line7=''then call stat3.1;open(13,'pfiles:logoff/users/'line7,r);status=readln(13);close(13);sendstring'f0n19}'line7' Has Dropped carrier 'status' time(s) now.            f0n11}';call stat3.1;end;if countt=8 then;do;if line8=''then call stat3.1;open(13,'pfiles:logoff/users/'line8,r);status=readln(13);close(13);sendstring'f0n19}'line8' Has Dropped carrier 'status' time(s) now.            f0n12}';call stat3.1;end;if countt=9 then;do;if line9=''then call stat3.1;open(13,'pfiles:logoff/users/'line9,r);status=readln(13);close(13);sendstring'f0n19}'line9' Has Dropped carrier 'status' time(s) now.            f0n13}';call stat3.1;end;if countt=10 then;do;if line10=''then call stat3.1;open(13,'pfiles:logoff/users/'line10,r);status=readln(13);close(13);sendstring'f0n19}'line10' Has Dropped carrier 'status' time(s) now.            f0n14}';call stat3.1;end;if countt=11 then;do;if line11=''then call stat3.1;open(13,'pfiles:logoff/users/'line11,r);status=readln(13);close(13);sendstring'f0n19}'line11' Has Dropped carrier 'status' time(s) now.            f0n15}';call stat3.1;end;if countt=12 then;do;if line12=''then call stat3.1;open(13,'pfiles:logoff/users/'line12,r);status=readln(13);close(13);sendstring'f0n19}'line12' Has Dropped carrier 'status' time(s) now.            f0n16}';call stat3.1;end;call 3.1;FORGIVE:;if countt=1 then;do;if line1='' then call stat3.1;transmit'$ delete "pfiles:logoff/users/'line1'"}';end;if countt=2 then;do;if line2='' then call stat3.1;transmit'$ delete "pfiles:logoff/users/'line2'"}';end;if countt=3 then;do;if line3='' then call stat3.1;transmit'$ delete "pfiles:logoff/users/'line3'"}';end;if countt=4 then;do;if line4='' then call stat3.1;transmit'$ delete "pfiles:logoff/users/'line4'"}';end;if countt=5 then;do;if line5='' then call stat3.1;transmit'$ delete "pfiles:logoff/users/'line5'"}';end;if countt=6 then;do;if line6='' then call stat3.1;transmit'$ delete "pfiles:logoff/users/'line6'"}';end;if countt=7 then;do;if line7='' then call stat3.1;transmit'$ delete "pfiles:logoff/users/'line7'"}';end;if countt=8 then;do;if line8='' then call stat3.1;transmit'$ delete "pfiles:logoff/users/'line8'"}';end;if countt=9 then;do;if line9='' then call stat3.1;transmit'$ delete "pfiles:logoff/users/'line9'"}';end;if countt=10 then;do;if line10='' then call stat3.1;transmit'$ delete "pfiles:logoff/users/'line10'"}';end;if countt=11 then;do;if line11='' then call stat3.1;transmit'$ delete "pfiles:logoff/users/'line11'"}';end;if countt=12 then;do;if line12='' then call stat3.1;transmit'$ delete "pfiles:logoff/users/'line12'"}';end;close(12);transmit '$0 delete ram:t/tempfil}';transmit '$0 list pfiles:logoff/users/#? lformat="%s" >ram:t/tempfil}';call stat1.7